CHARACTER(LEN=B,KIND=A) :: NAME2
CHARACTER(KIND=A,LEN=B) :: NAME1
end program